(mail-complete): Fix the test of (mail-heder-end).

diff --git a/lisp/mail/mailalias.el b/lisp/mail/mailalias.el
index 9d15345dd439c275b8760be385cfedd5f00c94db..fec940c7254ad2e9e74914c02dfa8defd54e3bb1 100644 (file)
--- a/lisp/mail/mailalias.el
+++ b/lisp/mail/mailalias.el
@@ -379,7 +379,7 @@ current header, calls `mail-complete-function' and passes prefix arg if any."
        (if (file-exists-p mail-personal-alias-file)
            (build-mail-aliases))))
   (let ((list mail-complete-alist))
-    (if (and (> 0 (mail-header-end))
+    (if (and (< 0 (mail-header-end))
             (save-excursion
               (if (re-search-backward "^[^\t]" nil t)
                   (while list